home *** CD-ROM | disk | FTP | other *** search
/ PC World 2000 November / PCWorld_2000-11_cd.bin / Novinky / tiptrik / tiptrik.exe / skripty-Utajovane funkce Windows / mkUrl.vbs < prev    next >
Encoding:
Text File  |  2000-09-17  |  1.1 KB  |  30 lines
  1. set WSHShell = CreateObject("WScript.Shell")        
  2. set fs = CreateObject("Scripting.FileSystemObject")
  3. set args = Wscript.Arguments
  4. OrdnerName=args(0)
  5. MkURLDatei (OrdnerName)
  6. Sub MkURLDatei (Ordner)
  7. i=Len(Ordner)
  8. Do Until DateiChar="\"
  9.     DateiChar = Mid(Ordner,i,1) : i=i-1
  10. Loop
  11. DateiName=Mid(Ordner,i+1,Len(Ordner)-i)
  12. DateiEndung=Lcase(Right(DateiName,3))
  13. ZielOrdner="C:\windows\OblφbenΘ polo₧ky\Office"
  14. if not fs.FolderExists(ZielOrdner) then
  15.     MsgBox ZielOrdner & " neexistuje.", vbExclamation : Exit Sub
  16. end if
  17. UrlFile = Zielordner + Left(DateiName,Len(DateiName)-4) + ".url"
  18. set ausgabe = fs.CreateTextFile(UrlFile, vbTrue)
  19. ausgabe.WriteLine "[InternetShortcut]" : ausgabe.WriteLine "URL="+ Ordner
  20. Select case DateiEndung
  21.     Case "doc" IconFile="C:\Program Files\Microsoft Office\Office\winword.exe"
  22.         ausgabe.WriteLine "IconFile=" + IconFile
  23.         ausgabe.WriteLine "IconIndex=0"
  24.         Case "xls" IconFile="C:\Program Files\Microsoft Office\Office\Excel.exe"
  25.         ausgabe.WriteLine "IconFile=" + IconFile
  26.         ausgabe.WriteLine "IconIndex=0"
  27. End Select 
  28. ausgabe.close
  29. End Sub
  30.